home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 3 / CD ACTUAL 3.iso / linux / incoming / jstools-.6v3 / jstools- / jstools-tk3.6v3.0 / lib / jdoc_hypertext.tcl < prev    next >
Encoding:
Text File  |  1995-02-05  |  3.1 KB  |  90 lines
  1. # jdoc_hypertext.tcl - hypertext procedures for jdoc
  2. # 
  3. # Copyright 1992-1994 by Jay Sekora.  All rights reserved, except 
  4. # that this file may be freely redistributed in whole or in part 
  5. # for non¡profit, noncommercial use.
  6.  
  7. ##############################################################################
  8. # jdoc:x_link w x y - go to link clicked on (hypertext)
  9. ##############################################################################
  10.  
  11. proc jdoc:x_link { {w} {x} {y} args } {
  12.   set tags [$w tag names @$x,$y]
  13.   
  14.   foreach tag $tags {                ;# find topic-name tag
  15.     if [string match "jdoc:link:*" $tag] {
  16.       set link [string range $tag 10 end]    ;# strip off "jdoc:link:"
  17.       if [string match "#*" $link] {        ;# anchor within this doc
  18.         set anchor [string trimleft $link "#"]
  19.         jdoc:go_to_anchor $anchor $w $x $y
  20.       } else {                    ;# separate doc
  21.         exec jdoc $link &
  22.       }
  23.       break
  24.     }
  25.   }
  26. }
  27.  
  28. ##############################################################################
  29. # jdoc:x_topic w x y - view doc clicked on (hypertext)
  30. ##############################################################################
  31.  
  32. proc jdoc:x_topic { {w} {x} {y} args } {
  33.   puts stderr "Warning: obsolete procedure jdoc:x_topic invoked."
  34.   set tags [$w tag names @$x,$y]
  35.   
  36.   foreach tag $tags {                ;# find topic-name tag
  37.     if [string match "jdoc:topic:*" $tag] {
  38.       set topic [string range $tag 11 end]    ;# strip off "jdoc:topic:"
  39.       exec jdoc $topic &
  40.       break
  41.     }
  42.   }
  43. }
  44.  
  45. ##############################################################################
  46. # jdoc:x_section w x y - go to section name clicked on (hypertext)
  47. ##############################################################################
  48.  
  49. proc jdoc:x_section { {w} {x} {y} args } {
  50.   puts stderr "Warning: obsolete procedure jdoc:x_section invoked."
  51.   set tags [$w tag names @$x,$y]
  52.   
  53.   foreach tag $tags {                ;# find section-name tag
  54.     if [string match "jdoc:section:*" $tag] {
  55.       set section [string range $tag 13 end]    ;# strip off "jdoc:section:"
  56.       .menu.sections.m invoke $section
  57.       break
  58.     }
  59.   }
  60. }
  61.  
  62. ##############################################################################
  63. # jdoc:x_manpage w x y - view man page name clicked on (hypertext)
  64. ##############################################################################
  65.  
  66. proc jdoc:x_manpage { {w} {x} {y} args } {
  67.   set tags [$w tag names @$x,$y]
  68.   
  69.   foreach tag $tags {                ;# find manpage-name tag
  70.     if [string match "jdoc:manpage:*" $tag] {
  71.       set manpage [string range $tag 13 end]    ;# strip off "jdoc:manpage:"
  72.       catch {exec man $manpage |& ul -i} mantext
  73.       j:more -height 30 \
  74.         -title "Manual page for `$manpage'" \
  75.         -text $mantext
  76.       break
  77.     }
  78.   }
  79. }
  80.  
  81. ######################################################################
  82. # jdoc:go_to_anchor anchor w x y - go to a particular anchor
  83. ######################################################################
  84.  
  85. proc jdoc:go_to_anchor { anchor w args } {
  86.   if [catch {$w yview jdoc:anchorname:${anchor}.first}] {
  87.     j:alert -text "Unable to find anchor `${anchor}' in this document."
  88.   }
  89. }
  90.